home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 045a / btp15.zip / VERSION.PAS < prev    next >
Pascal/Delphi Source File  |  1991-11-08  |  417b  |  19 lines
  1. PROGRAM Version;             { (c) 1991 John C. Leon   last updated 10/25/91 }
  2.  
  3. {A demonstration of the base object, TRecMgr, in BTP.TPU, version 1.5}
  4.  
  5. {$IFDEF production} {$D-,R-,L-,S-} {$ENDIF}
  6.  
  7. USES
  8.    BTP;
  9.  
  10. VAR
  11.    MyObj : PRecMgr;
  12.  
  13. BEGIN
  14.    MyObj := new(PRecMgr, Init);
  15.    writeln;
  16.    writeln('This computer is running Btrieve Version ', MyObj^.VersionString,'.');
  17.    dispose(MyObj, Done);
  18. END.
  19.